home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / genial / ui / zoom_ui.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-07-14  |  2.6 KB  |  110 lines
  1. /*
  2.  * zoom_ui.c - User interface object initialization functions.
  3.  * This file was generated by `gxv' from `zoom.G'.
  4.  * DO NOT EDIT BY HAND.
  5.  */
  6.  
  7. #include <stdio.h>
  8. #include <sys/param.h>
  9. #include <sys/types.h>
  10. #include <xview/xview.h>
  11. #include <xview/canvas.h>
  12. #include <xview/panel.h>
  13. #include <xview/scrollbar.h>
  14. #include <xview/svrimage.h>
  15. #include <xview/termsw.h>
  16. #include <xview/text.h>
  17. #include <xview/tty.h>
  18. #include <xview/xv_xrect.h>
  19. #include <group.h>
  20. #include "zoom_ui.h"
  21.  
  22. /*
  23.  * Initialize an instance of object `zmwin'.
  24.  */
  25. zoom_zmwin_objects *
  26. zoom_zmwin_objects_initialize(ip, owner)
  27.     zoom_zmwin_objects    *ip;
  28.     Xv_opaque    owner;
  29. {
  30.     if (!ip && !(ip = (zoom_zmwin_objects *) calloc(1, sizeof (zoom_zmwin_objects))))
  31.         return (zoom_zmwin_objects *) NULL;
  32.     if (!ip->zmwin)
  33.         ip->zmwin = zoom_zmwin_zmwin_create(ip, owner);
  34.     if (!ip->zmcanv)
  35.         ip->zmcanv = zoom_zmwin_zmcanv_create(ip, ip->zmwin);
  36.     return ip;
  37. }
  38.  
  39. /*
  40.  * Create object `zmwin' in the specified instance.
  41.  */
  42. Xv_opaque
  43. zoom_zmwin_zmwin_create(ip, owner)
  44.     zoom_zmwin_objects    *ip;
  45.     Xv_opaque    owner;
  46. {
  47.     extern Notify_value    zoom_zmwin_event_callback();
  48.     Xv_opaque    obj;
  49.     
  50.     obj = xv_create(owner, FRAME,
  51.         XV_KEY_DATA, INSTANCE, ip,
  52.         XV_WIDTH, 256,
  53.         XV_HEIGHT, 256,
  54.         XV_LABEL, "Zoom Window",
  55.         XV_SHOW, FALSE,
  56.         FRAME_SHOW_FOOTER, FALSE,
  57.         FRAME_SHOW_RESIZE_CORNER, TRUE,
  58.         NULL);
  59.     xv_set(obj, WIN_CONSUME_EVENTS,
  60.         NULL, NULL);
  61.     notify_interpose_event_func(obj,
  62.         (Notify_func) zoom_zmwin_event_callback, NOTIFY_SAFE);
  63.     return obj;
  64. }
  65.  
  66. /*
  67.  * Create object `zmcanv' in the specified instance.
  68.  */
  69. Xv_opaque
  70. zoom_zmwin_zmcanv_create(ip, owner)
  71.     zoom_zmwin_objects    *ip;
  72.     Xv_opaque    owner;
  73. {
  74.     extern Notify_value    zmcanv_event_proc();
  75.     extern void    zmcanv_repaint_proc();
  76.     Xv_opaque    obj;
  77.     
  78.     obj = xv_create(owner, CANVAS,
  79.         XV_KEY_DATA, INSTANCE, ip,
  80.         XV_X, 0,
  81.         XV_Y, 0,
  82.         XV_WIDTH, WIN_EXTEND_TO_EDGE,
  83.         XV_HEIGHT, WIN_EXTEND_TO_EDGE,
  84.         CANVAS_REPAINT_PROC, zmcanv_repaint_proc,
  85.         CANVAS_X_PAINT_WINDOW, TRUE,
  86.         NULL);
  87.     xv_create(obj, SCROLLBAR, SCROLLBAR_DIRECTION, SCROLLBAR_HORIZONTAL, NULL);
  88.     xv_create(obj, SCROLLBAR, SCROLLBAR_DIRECTION, SCROLLBAR_VERTICAL, NULL);
  89.     xv_set(canvas_paint_window(obj), WIN_CONSUME_EVENTS,
  90.         WIN_MOUSE_BUTTONS,
  91.         LOC_MOVE,
  92.         LOC_DRAG,
  93.         LOC_WINENTER,
  94.         LOC_WINEXIT,
  95.         WIN_ASCII_EVENTS,
  96.         WIN_LEFT_KEYS,
  97.         WIN_RIGHT_KEYS,
  98.         WIN_TOP_KEYS,
  99.         NULL, NULL);
  100.     notify_interpose_event_func(canvas_paint_window(obj),
  101.         (Notify_func) zmcanv_event_proc, NOTIFY_SAFE);
  102.     /*
  103.      * This line is here for backwards compatibility. It will be
  104.      * removed for the next release.
  105.      */
  106.     xv_set(canvas_paint_window(obj), XV_KEY_DATA, INSTANCE, ip, NULL);
  107.     return obj;
  108. }
  109.  
  110.